home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Transactor
/
Transactor_26_1988_Transactor_Publishing.d64
/
input demo
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
1KB
|
35 lines
100 if a=0 then a=1:load "input.obj",8,1
110 print "[147][201][206][208][213][212] [196][197][205][207]"
120 poke 53281,0:poke 53280,0:poke 53272,23
130 pr=49152:in=49155:ret=780:esc=781
140 b$=".":c$="-":d$="$"
150 sys pr,1,4,"[206]ame:"
160 sys pr,1,6,"[193]ddress:"
170 sys pr,1,8,"[195]ity:"
180 sys pr,23,8,"[208]hone:"
190 sys pr,1,10,"[193]mount [207]wed: [159] [146] - [196]ues"
200 sys pr,14,11," [146] - [196]isks
210 [158] pr,14,12," wait - (NULL)agazines
220 sys pr,14,13," [146] - [212]otal
230 [135] na$,ad$,ci$,ph$,du$,di$,ma$,tl$
240 [131] "chr$arry (NULL)iziak ","2381 str$uncaster str$rive "
250 [131] "peekurlington ","335-4837"
260 [131] " $0.00"," $3.50"," $12.00"," $15.50"
1000 [153] "sys":[158] in,7,4,na$,20,153,b$:[139] [194](esc) [167] 1160
1010 [145] [194](ret) [137] 1020,1020,1140
1020 [153] "sys":[158] in,10,6,ad$,25,155,b$:[139] [194](esc) [167] 1160
1030 [145] [194](ret) [137] 1040,1040,1000
1040 [153] "sys":[158] in,7,8,ci$,15,153,b$:[139] [194](esc) [167] 1160
1050 [145] [194](ret) [137] 1060,1060,1020
1060 [153] "sys":[158] in,30,8,ph$,8,154,c$:[139] [194](esc) [167] 1160
1070 [145] [194](ret) [137] 1080,1080,1040
1080 [153] "open";:[158] in,14,10,du$,10,222,d$:[139] [194](esc) [167] 1160
1090 [145] [194](ret) [137] 1100,1100,1060
1100 [153] "open";:[158] in,14,11,di$,10,222,d$:[139] [194](esc) [167] 1160
1110 [145] [194](ret) [137] 1120,1120,1080
1120 [153] "open";:[158] in,14,12,ma$,10,222,d$:[139] [194](esc) [167] 1160
1130 [145] [194](ret) [137] 1140,1140,1100
1140 [153] "";:[158] in,14,13,tl$,10,222,d$:[139] [194](esc) [167] 1160
1150 [145] [194](ret) [137] 1000,1000,1120
1160 [158] pr,4,20,"wait(NULL)hat's all there is to it!!!"